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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
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CORPORATION. * 
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SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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ABSTRACT: 


ENVIRONMENT: 
Kernel mode 
AUTHOR: Rod Gamache, CREATION DATE: 25-Mar-1983 
MODIFIED BY: 
v03-002 RNGOO02 Rod Gamache 27-Apr-1983 
+h 'p current NDI weney on scan of NDI database only 
DI is not the CNR, 


v03-001 RNGOOO01 Rod Gamache 20-Apr-1983 
Stop using the special macros with optionai JSBs. 


: | 
FACILITY: NETWORK ACP | 
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; Library definitions 
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; vhO8 . ’ etsy 3 592) ENETACP. SR SR CIN NETTREE.MAR; 1 . dy 
0 8 
$6 35 ; 
0 of ; Own storage 
0000 : 6¢ : .PSECT NET_IMPURE,WRT,NOEXE 
00000004 38 ee NAME_BUF:.BLKL 1 ; String storage for executor name 
0000 4 96 -PSECT NET_CODE1,NOWRT,EXE 
0900 o8 > Local definitions 
0000 19 ; SDEFINI BTE GLOBAL ; Define Binary Tree Elements 
0000 if; S$DEF BIESL_LEFT .! oe 3; Left subtree pointer 
0004 73 S$DEF BTESL_RIGHT -BLKL 1 ; Right subtree pointer 
0008 74 $DEF BIESW_SIZE -BLK 1 ; Size of BTE structue 
QOOA 75 SDEF BIESB_TYPE -BLKB 1 3; Structue type (FF or FE) 
0008 76 SDEF BTESB_BAL -BLKB 1 ; Subtree x ance (-1, 0 or +1) 
000C 77 $DEF BIESL_BTEPTR BLKL 1 ; Pointer to node in poset AVL tree 
0010 78 SDEF BIESL_PTR ~BLKL 1 ; Pointer to NDI databas 
Oe? 0 $DEF BIEST_DATA -BLKB 154341 ; of CIRCUIT NAMES $ ADDRESS + 
00000013 0027 ~381 BTESC_DATA_SIZE = <.-BTEST_DATA> ; Size of data portion of BTE 
0027 82 SDEF BTESC_LENGTH ; Size of BTE 
0027 83 SDEFEND BTE 
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5 = -SBTTL NETSTRAVERSE_NDI = Traverse NDI collate tree routine | 
ie ; NETSTRAVERSE_NDI - iraverse NDI collate tree routine 
8 9 ; This routine traverses the collate tree, calling back the cal'er with 
44 ay 3 3 the next node address. The search is done in inorder fashion. 
0000 9; INPUTS: 
00 93; 
0000 94; R11 = Address of CNR 
448 32 : R10 = Address of start CNF (or zero if start at begining) 
itd 38 ; OUTPUTS: 
0000 98 ; 
0000 99 ; R10 = Address of CNF if found, else same as on input. 
0000 100; RO = True if success, else false 
0000 101; 
0000 198 : R1,R2 are destroyed 
0000 103; 
0000 104 ;-- 
0000 105 . ENABL LSB 
0000 106 NETSTRAVERSE NDI: : Co-routine to traverse the tree 
51 6E€ D0 0000 107 (SP »,R1 : Save return address 
52 O0000000'EF DO 0003 108 MOV NETSGL_COL_TREE,R2 ; Assume we should start at begining 
54 D5 QOOA 109 TSTL ; Should we start at begining? 
05 13 Oboe 19 BEQL TRAVERSE ; Br if yes 
QO0E BF ASSUME CNFSL_COLBTE EQ CNRS$L -COLBTE 
52 6A DO QOOE 11 MOVL CNFSL_COLBTE(R10),R2~ ; copy start BIE address 
20. «(13 eit 143 BEQL 90$ 3 none 
0013 116 TRAVERSE: 3; Recursive to traverse the tree 
52 pdS5 0013 117 TSTL R2 3; Bottom - tree? 
1¢ 13 OOTS 118 EQL 90$ ; Br if y 
52 DD 0017 119 PUSHL R 3; Save rst BTE address 
52 62 00 0019 120 MOVL BIESL_LEFT(R2),R2 ; Get address of left subtree 
F5 10 QOO1C 121 BS8B TRAVERSE ; Traverse the tree 
CO1E 1 ¢ RESUME _CONT: 
52 BEDO OOIE 1 POPL R2 3 Restore previous BITE address 
5A 10 A2 00 b05¢ 124 MOVL BIESL_PTR(R2) ,R10 ; Get the CNF aderess a the NDI 
50 01 9A 0025 125 MOVZBL #1,R0 3; Indicate more to 
61 16 0088 126 JSB (R41) > Call back caller with CNF in R10 
80 A 4 g ae rarest ALT: ; Alternate entry point, stack reset 
51 3 b0 A. % MOVL (SP )+,R1 ; Pop return address from stack 
52 O4A 09 D 130 MOVL ereet *RIGHT(R2) . R2 ; Point to right subtree | 
£0 1 .. ts BNEQ AVERSE ; Traverse left subtree “ot right half | 
50 p04 0033 1 ¢ 90$: CLRL ; Indicate no more 
05 0035 13 RSB 
0036 i 
0036 §=6135 -DSABL LSB 
0036 136 
| 
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-SBTTL WNETSRESUME_NDI = Resume traversal of NDI collate tree routine 
NETSRESUME_NDI = Resume traversal of NDI collate tree routine 


This routine traverses the collate tree, looking for the CNF address that 
was given. On it's way. it builds a new stack just as if it was in the 
middle of the co-routine NETSTRAVERSE NDI. This way, we can resume where 
we left off. If the tree element is not found then the stack is left in 
tack so we can proceed, this is in case we are deleting the BTEs. 


INPUTS: 


R11 Address of CNR 


See Ge Ge Ge Ge Ge Ge Se Se Ge Ge Ge Se Ge Ge Ge Ge Ge Se Se Se Se 
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br es 
ES DI 
0 1 
0 139 
140 
0 141 
0 146 
14 
144 
8 145 
0 108 
00 14 
00 148 
6° 149 
0 150 
0036 151 R10 = Address of start CNF, cannot be zero 
00 136 R7,R8 = Desciptor of collating string 
0036 «8615 
Bo ee 154 ; OUTPUTS: 
0036 155 ; 
Bose 138 RO = Bit 0: True if element found or we can proceed, else false 
Bate 4 Bit 1: Clear if we must proceed to next, else take current 
0036 159 R1,R2 are destroyed 
0036 160 
0036 161 ;-- 
0036 196 -ENABL LSB 
0036 1635 NETSRESUME_NDI:: ; Routine to traverse the tree 
51 8€ DO 0036 164 MOUL SP)+,R1 : Save return address 
52 O0000000'EF DO 0039 165 MOVL NETSGL_COL_TREE,R2 ; Start at begining 
50 D4 Opes 198 CLRL RO 3; Assume failure 
0942 168 RESUME: ; Recursive routine to traverse tree 
52 DS 004 169 TSTL 4 ; Bottom of tree? 
1A 13 0044 170 BEQL 70$ ; Br if yes, error 
0427 30 B26 171 BSBW COSPARE COLLATE? 3; Compare key on current node 
OF 1A 004 \7¢ BGTRU 0$ ; Br if to the right 
8 13 0048 17 BEQL 90$ ; Br if found, leave 
$ OD Bpee 174 PUSHL R2 ; Save current BITE address 
52 6 DO OO04F 175 OVL BIESL_LEFT(R2),R2 ; Get address of left subtree 
C9 AF OOF O38 176 PUSHAB RESUME_CONT ; Push address of continuation 
50 01 9A 005 177 MOVZBL ; Indicate success, something on stack 
EB 11 0058 178 BRB RESUME ; Traverse the tree 
52 04 A2 DO OOSA 179 30S: MOVL BIESL_RIGHT(R2) ,R2 : Point to right subtree 
Es 11 005 180 BRB RESUME ; Traverse left subtree of right half 
12 50 €9 006 13) 708: BLBC RO, 100$ ; Br if nothing on stack, return error 
5E 04 CO 006 1 ¢ ADDL #4,SP ; Pop Last address from stack 
52 aE DO 0066 18 MOVL (SP)+,R2 ; Else, pick up last BITE on stack 
SA 104A DO 0069 HT MOVL STERN, PIRCRZ) 810 ; Take the current BTE 
3g0 185 SETBIT #1,R ; Set flag to take the current BTE 
071 136 90$: SETBIT #0,R0 : Indicate success 
61 17 075 : 100$:  JMP (RI) : Return to caller 
$677 189 -DSABL LSB 
0077 190 
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-SBTTL NETSFIND_NDI = Use collating tree to find an NDI 
-SBTTL NETSFIND_COL = Traverse NDI collate tree to find NDI 


oe 
NETSFIND_NDI = Use collating tree to find an NDI 
NETSFIND_COL = Traverse NDI collate tree to find an NDI 


This routine traverses the collate tree, searching for a match on the input 
key value. 


INPUTS: 


= Address of CNR 
= Address of CNF to start searching from 
R8 = Descriptor for key value 


R10 = Address of CNF found else the starting CNF. 

R3 = Address of BIE who's key was LSSU but closest to the given key. 

R4 = Address of BITE who's key was GTRU but closest to the given key, 
or zero if end of tree. 

RO = True if success, else false 
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0077 
0077 NETSFIND_NDI:: ; Use the collating tree to find an NDI 
pore NETSFIND_COL:: ; Traverse the Collate tree for a match 
59 DD 0077 PUSHL R9 ; Save registers 
50 «604 «60079 CLRL RO ; Assume failure : 
59 QO000000'EF 90 0078 MOVL NETSGL_COL_TREE,R9 3; Assume we start from begining 
1F 13 9082 BEQL 90$ ; Br if no root, yet 
5A D5 0084 TSTL R10 ; Start from begining? 
10 13 0086 BEQL 50$ ; Br if yes 
50 04 444 CLRL RO ; Assume failure 
OO8A ASSUME CNFSL_COLBTE EQ CNRSL_COLBTE 
59 6A 00 008A MOVL CNFSL_COLBTE(R10) ,R9 ; Else, pick up starting BITE 
14 13 008D BEQL 90$ ; Br if no BT 
5B SA 01 OO8F CMPL R10,R11 : Is this the CNR? 
046 «13 995 BEQL 50$ ; Br if yes, don’t skip first BITE 
59 04 A9 D0 0094 MOVL BIESL_RIGHT(R9) ,RI ; Else, skip current and continue 
54 D4 0098 50$: CLRL RG ; Assume end of tree 
39 10 QO9A BSBB FIND ; Find a match 
04 50 =€9 9C BLBC RO,90$8 ; Br if failure 
5A 10 A9 00 009F MOVL  BTESL_PTR(R9),R10 : Else, get the CNF address 
59 B8EDO O0A3 90$ POPL R9 ; Restore registers 
05 O0A6 RSB 3; Return to caller 
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: paeyes Macro V04-00 
Traverse NDI name tree SEP=19 7:21:41 CNETACP.SRCINETTREE.MAR; 1 
ae -SBTTL NETSFIND_NAME = Traverse NDI name tree to find NDI 

; NETSFIND_NAME = Traverse NDI name tree to find an NDI 


; This routine traverses the name tree, searching for a match on the input 
3; key value. 


+ INPUTS: 


Page (8 
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A7 9 
A? 4 
A? t 
A? 4 
A? 44 
A? 45 
A7 rh 
va 
A7 rk s R11 = Address of CNR 
A? 50 ; R10 = Address of CNF to start searching from 
par 2] : R7,R8 = Descriptor for key value 
gar 33 3 OUTPUTS: 
A7 55; R10 = Address of CNF found else the starting CNF address 
A? 2 : RO = True if success, else false 
Q0A7 57; 
SA Bae 
0Q0A7 60 NETSF IND _NAME:: ; Traverse the name tree for a match 
0218 8F BB OO0A7 61 PUSHR #*M<R3,R4,R9> ; Save registers 
59 00000 o'r DO OOAB ¢ MOVL NETSGL_NAME_TREE,R9 3; Assume we start from begining 
A be 0082 6 TSTL R10 ; Start from begining? 
11 13 00B4 64 BEQL 50$ ; Br if yes 
50 D4 sie rH CLRL RO ; Assume failure 
0088 67 ASSUME CNFSL_COLBTE EQ CNRSL_COLBTE 
59 046 AA 0 Seer 68 MOVL CNFSL_NAMEBTE(R10),R9 ; Else, pick up starting BTE 
| OBC 69 BEQL 90 ; Br if no BTE 
58 5A D1 OOBE 70 CMPL R10,R11 ; Is this the CNR? 
046 13 00C1 71 BEQL ; Br if yes, don't skip first BITE 
59 04 A9 00 Bote ie MOVL BIESL_RIGHT(R9) ,RO 3; Else, skip current and continue 
of 10 O0C 73 50$ BSBB FIND 3; Find a match 
04 50 €9 00C9 74 BLBC RO,90$ :; Br if failure 
5A 10 A9 00 O00CC 275 MOVL BTESL_PTR(R9),R10 : Else, get the CNF address 
0218 8F BA O00D0 276 90$: POPR #*M<R3,R4,R9> ; Restore registers 
05 0004 277 RSB ; Return to caller 
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4 - 
1 : Recursive routine to find an entry in the collated tree. This routine 
§ ; will return the address of the BTE that is closest to the request key value, 
7 ; but less than the requested key value. 
5; Inputs: 
$ ; R9 = Address of first BITE 
: R7,R8 = Descriptor for key value 
8 ; 
9 ; Outputs: 
39 3 R3 = Address of BIE who's key was LSSU but closest to the given key. 
91; R4 = Address of BIE who's key was GTRU but closest to the given key, 
35 ; or zero if end of tree. 
94 :- 
95 FIND: 3; Recursive routine to find a BTE 
38 TSTL R9 3; End of tree? 
9 BNEQ 10$ ; Br if no 
98 CLRL RO 3; Else, return failure 
+ $B ; Return to caller 
01 10$: BSBW COMPARE _COLLATE ; Compare hey on current node 
8 BGTRU 50$ ; Br if to the right 
0 BLSSU 30$ ; Br if to the left 
04 MOVZBL #1,R0 : Indicate success 
5? RSB 
bs ; Search the left subtree 
09 30$:  MOVL  BTESL_LEFT(R9),R9 ; Point to left subtree 
10 BSBB FIND ; Keep trying 
1] RSB ; ALL done 
13 : Search the right subtree 
15 50$:  MOVL R9,R3 ; Save LSSU BTE address 
16 AOVL BIESL_RIGHT(R9) RO ; Point to right subtree 
17 MOVL RO,RS ; Save address of current for GTRU BITE 
pees FIND ; Keep looking 
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QOOO0000"EF 59 
56 
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58 00000000°EF 


68 eneoggee 8F 
7 04 
59 sesornse"T 
00000000' EF $ 
OA A6 (01 
55 
OC AS 2¢ 
OC AB 5 
6A 55 
04 AA 56 
O3FE 8F 
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20$:  MOVL NETS$GL_COL_TREE,R9 : 
4,R : 
40$:  MOVL  NETSGL_NAME_TREE,R9 : Get address of NAME tree root 


R6, 
90$: POPR #*M<R1,R2,R35,R 
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-SBTTL NETSADD_NDI = Add entry to collate tree and name tree 


p++ 
; NETSADD_NDI = Add an entry to the COLLATE TREE and the NAME TREE 


This routine adds a node address to the collate tree, and at the 
same time it adds a name entry to the name tree. 


INPUTS: 
R11 = Address of CNR 
R10 = Address of CNF to be added 
OUTPUTS: 


RO = True if success, else false 


NETSADD_NDI:: 


;_ Add new BITE to NDI trees 
PUSHR #*M<R1,R2,R3,R4,R5,R6,R7,RB,RI> ; Save registers 
SGETFLD ndi,s,col ; Get the collating value 
CMPB #BTESC_DATA_SIZE-1,R7 5 ge one string size 

; Br oka 
BUG_CHECK NETNOSTATE, FATAL ! Else, bug check 


BSBB ADD_NEQ BTE 
MOVL R9,NETSGL_COL_TREE 
PUSHL R6 
SGETFLD ndi,s,nna 
BLB RO,4 
MOVAB NAME _BUF ,R8 
, (RB) 


Add new BTE to COLLATE tree 

Set new root of tree 

Save address of BTE ‘ 

Get the node name descriptor 
: iy present 
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#*A''en-n- ; Use ficticous name (for exec 


Set size of strin 
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BSBB ADD_NEQ_BTE 
MOVL R9,NETSGL_NAME_TREE 
MOVB #] .BTESB_TYPE (RE) 


MOVL RG. BTESL_BTEPTR« 


Add new entry to NAME tree 
Set new root of tree 
Set different structure type 
; Restore address of COLLATE BITE 
Set the cross pointers 
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) 
6,R7,R8,R9> ; Restore registers 
RSB : Exit with status 


Get address of COLLATE tree root 


address of temporary name buffer 


; Set pointers in CNF to tree structs. 
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i NARY TRE 16-SEP-1984 01:28:51 VAX/VMS Macro V04-00 Page 9 NET 
*N tag 4) gag i ate st sig Bt tree mitts yi gh: 1:41 NETACP.SRCINETTREE.MAR; 1 (8) Syn 
7 67 -SBTTL ADD_NEW_BTE - Add new entry to AVL tree ave 
If $3 ; ADD_NEW_BTE = Add new entry to AVL tree ete 
| 7 4 : INPUTS: Bre 
| 17 +8 : R10 = Address of CNF to be added Hs 
17 74; R9 = Root of tree to insert onto or zero if no root yet BTE 
if o? : R7,R8 = Descriptor for key value BTE 
7 r : OUTPUTS: BTE 
| O17 hi : Entry inserted into correct position of collate tree. au 
te Hi : R9 = Address of new root of tree ed 
G17 8 : R6 = Address of BITE added. CNF 
bie + s Ri-R5 are destroyed. CNR 
ASSUME «BTESL_LEFT Ea 0 COM 
aE 2 ASSUME BTESL-RIGHT EQ 4+BTESL_LEFT bee 
017 87 ASSUME BTESWISIZE EQ 4+BTESLRIGHT DEL 
017 8 ASSUME BTESB_TYPE EQ 2+BTESW_SIZE DEL 
017 89 ASSUME 8TESB_BAL EQ 1+BTESB_TYPE DEL 
017 90 ASSUME BTESL_BTEPTR EQ 1*“STESB_BAL DLR 
017 91 ASSUME BTESL_PTR EQ 4+BTESL_BTEPTR OER 
tA 6 ASSUME BTEST_DATA EQ 4+BTESL_PTR OLR 
DRL 

17 94 BUG_OUT: 
0172 $6 ~~ BUG_CHECK NETNOBUF ,FATAL 3; Fatal error bar 
NEW_BTE: 3; Add new entry to AVL tree FIN 
51 27 9A bie 38 ee “fovzBL #BTESC_LENGTH,R1 ; Set size of needed BTE Hee 
00000000'EF 16 0179 99 JSB NE TSALCOCATE 3; Allocate a BTE “ 

FO 50 «=6E9 )«=6O17F = 400 BLBC RO,BUG_OUT 3 Bug check on failure N 
56 52 0 0182 401 MOVL R2,R6 ~ : Point R6 to new BTE NET 
82 7C 0185 40 CLRQ = (R2) + : Clear pointers NET 
82 51 00 0187 103 MOVL R1,(R2)+ : Set size of BTE, TYPE 0, clear BAL NET 
2 04 O1BA 404 CLRL (RE) + : Clear BTEPTR NET 
a2 $a bo o1Be 205 MOVL R10, (R2)+ > Set PT NET 
&3 is, O16 406 MOVB R7,(R2)+ ; Set size of strino et 
62 6 7, 3106 rit MOVCS R7, (RB), (R2) ; Store the collating value ey 
0196 ret : INSERT ENTRY INTO ASCENDING VALUE ORDERED TREE et 
4 . 
p130 411 3; BRB INSERT : Insert new entry ~H 
0196 412 4 
RES 
RES 
| TRA 
$$ 
| 
j 
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a -SBTTL INSERT = Recursive routine to insert BTE into TREE 
INSERT = Recursive routine to insert BTE into TREE 


3 This routine is called to insert the entry for a given key into 
3 an AVL tree. It returns the egprage cave tree node, then 
3 rebalances the tree as required. For a full explanation of 

: what is involved, see WIRTH, ‘Algorithm + Data Structures = Programs’. 

; Basically, we scan the tree until we find the node with the 
3 giver key. We then look for the rightmost decendent of the 
3 he left subtree and delete that entry, putting its associated value 

; spewater? in the original node. This avoids a lot of node shuffling. 
3 Then, we go 3 the tree until we find a node which remains in 
: acceptable balance when the subtree gets lower. 


INPUTS: 


R9 = Pointer to current node in TREE , 
R7,R8 = Desciptor of Key value for insertion 
R6 = Pointer to new BIE entry 


; OUTPUTS: 


R9 = Address of new root of tree 
R6 = New pointer to current node in tree 
rt : RO-R2 are destroyed. 


CODD AD OS Bo 8 8 OD BD PPA AAAAAAAAAAAAAAAAAAAAAA AAA AAAO 


RSSeseeses PPPPr rr rr PEP OOOO OODODDODODDODODODDOODDDODOODDOOODOONDNDNOONO 


| 
| 
441 | 
ra INSERT: ; Recursive routine to insert 
59 oS 44 TSTL = RO : Null pointer? (BOTTOM OF TREE) 
or iz et BNEQ 10$ : Br if not 
446 : REACHED BOTTOM OF TREE - INSERT INTO TREE AT BOTTOM | 
59 5é D0 448 MOVL =R6,R9 ; Set address of new node 
50 60 dO 449 MOVL #1,R0 3; Indicate not balanced 
05 re RSB 
126 : CHECK IF KEY IS TO THE LEFT OR RIGHT SUBTREE | 
0286 30 454 10S: BSBwW COMPARE _COLLATE ; Compare key on current node 
67 ~=#1A 455 BGTRU $oo8 : Br if to the right side 
+28 33 BEQL 00$ ; Br if already exists 
458 : INSERT THE NODE INTO THE LEFT SUBTREE | 
59 DD 460 PUSHL RO ; Save pointer of father | 
59 669 Ht 461 MOVL BTESL_LEFT(R9) RO ; Setup pointer to left son 
3 1 46 BSBB INSERT : Insert into left subtree 
51 9 »pD0 D 46 MOVL R9,R1 ; Save new address of subtree 
29 BED ! 464 POPL ; Return to father node 
69 ;. Bi 465 MOVL RAR IE SL ALEF TRY) ; Point to new left subtree 
06 50 6 46 BLBS RO,110$ ; Br if not balanced 
0089 31 9 467 40$: BRW 90$ > Exit 
00B4 1 ¢ ‘3 50$: BRwW 80% ; Exit - mark in balance 
F 470 : THE LEFT SUBTREE HAS GROWN HIGHER - RESTORE BALANCE 
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1BF 471 4 
0B A9 «97 ~=«(O1BF 426 1108:  b€CB BTESB_BAL(R9) ; Perform left shift of tree 
F8 i 1c2. 047 BEQL 0 ; Exit if in perfect balance 
Fil OB AD OCC 106 «474 BLBS BTESB_BAL(R9) ,40$ ; Exit if avl balanced 
51 69 bp 108 6475 MOVL BTESL“LEFT(R9S,R1 : Get pointer to left subtree 
OB Al 9 1CB $28 TSTB Fin see se? ; Test balance on that side 
11 «18 HS 3 ries BGEQ 120$ ; Br if need double rotation 
§108 rt 4 ; PERFORM SINGLE LL ROTATION 
69 04 Al DO 0100 481 MOVL BIESL_RIGHT(R1) ,BTESL_LEFT (RO) 
Al 59 =~»0 O14 4 j MOVL 9 Brest RIGHT(R1) 
08 A9 «94 0108 =4 CLRB 4 4=s- BTE$B_BAC(R9) ; Mark in balance 
59 = 0 01DB oee MOVL R1,R9 ; Set new root of subtree 
008F 1 g1be ri +4 BRw 256$ : Indicate in perfect balance 
ates rt ; PERFORM DOUBLE LR ROTATION 
52 04 A1 00 OIE] 489 120$:  MOVL BIESL_RIGHT(R1) ,R2 ;_Get right son of left subtree 
04 Al 62 DO OES 490 MOVL BTESL_LEFT(R2) ne 
62. 51 DO O169 491 MOVL  R1,BTESL_LEFT(R2) 
9 04 A2 DO OEC 49¢ MOVL BTESL_RIGHT(R2) ,BTESL_LEFT(R9) 
04 a2 59 DO O1FO 49 MOVL  R9,BTESL_RIGHT(R2) 
OB AD 94 O1FS 8494 CLRB BTESB_BAC(R9) ; Initialize balance indicators 
O08 Al 94 O1F7 95 CLRB BTESB_BAL(R1) 
0B A2 95 OFA 96 TSTB BTESB_BAL(R2) ; Check balance of new subtree 
6— 13 O1FD 497 BEQL 40$ ; Skip if in balance 
06 14 OFF 498 BGTR 130$ ; Br if left side heavy 
OB AD sé 90 0201 499 MOVB #1 ,BTESB_BAL(R9) ; Mark right side heavy 
66 11 0205 500 RB 46 ; Set new subtree and exit 
OB Al 01 8E 0207 501 130$: MNEGB #1,BTESB_BAL(R1) ; Mark left side heavy — 
60 11 aces 208 BRB 246$ ; Set new subtree and exit 
8505 ape ; INSERT NEW NODE INTO RIGHT SUBTREE 
59 DD 0200 506 2008: PusHL R9 ; Save pointer of father 
59 04 Ad 8 020F 507 MOVL BTESL_RIGHT(R9) RO ; Setup pointer to right son 
FF80 0 0213 508 BSBW INSERT ; Insert into left subtree 
51 59 D0 0216 509 MOVL R9,R1 ; Save new address of subtree 
59 B8EDD 0219 510 POPL ; Return to father node 
04 A9 51 £400 O21C 511 MOVL R1,BTESL_RIGHT(R9I) ; Point to new erent subtree 
5250 €9 bss 216 BLBC RO,90$ 3; Exit if balance 
s 318 3 THE RIGHT SUBTREE HAS GROWN HIGHER = RESTORE BALANCE 
0B A9 % 0 16 INCB = BTESB_BAL(R9) ; Perform right shift of tree 
468 1 6 517 BEQL 80$ ; Exit if in perfect balance 
49 0B AD s«EB 8 218 BLBS BTESB_BAL(R9) ,90$ ; Exit if avl blanaced 
51 04 a9 00 C 19 MOVL BTESL~RIGHT(R9) ,R1 ; Get pointer to right subtree 
OB Al 95 ° 0 TSTB 304 al ; Test balance on that side 
a } 1 BLEQ 208 ; Br if need double rotation 
5 5 ; PERFORM SINGLE RR ROTATION 
04 Ad $1 dO 3 5 MOVL BTESL “adh BIESL_RIGHT(R9) 
61 59 «Ot 9 6 MOVL R9,BTESL_LEFT(R 
Ad 94023 CLRB = BTE$B_BAC(R9) ; Mark in balance 
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1 
1 
| new root of subtree 


59 51 «DO O23F 8 MOVL R1,R9 : $ 
= = te , BRB 256s ; Indicate in perfect balance 
44 1 > PERFORM DOUBLE RL ROTATION 
52 1 44 F 2208:  MOVL BIESL of FETE Get left son of right subtree 
é A2 D 47 4 MOVL  BTESL-R AT ERIS g TESL _LeFT(RI) 
04 A2 51 DO 0248 5 MOVL Rt BTESL orrenck 
04 Ad ¢ DO O24F E MOVL  BTESL LEFT (R2) BTESL_ RIGHT (R9) | 
62 DO 0253 MOVL RO gre EFTCR 
Ao (9 36 8 CLRB 3s BTESB_ ctr9) : Initialize balance indicators 
0B Al 9% 9 CLRB  =- BTESB“BAL(R1) 
A2 2 ¢ 40 TSTB TESB_BAL(R2) 3; Check balance of new subtree 
OC 13 025F 41 BEQL 40$ : Skip if in balance 
06 14 8 61 tg BGTR 30$ ; Br if left side heavy 
0B Al «01 90 o3 4 MOVB #1, ,BTESB_BAL(R1) ; Mark right side heavy 
06 11 «026 44 BOR 246$ ; Set new subtree and exit 
0B Ao) «=6(01_Sts«é#B'"E’ 8 24 o2 230$: MNEGB #1,BTE$B_BAL(R9) ; Mark left side heavy 
0 6p 549 : SET NEW POINTER TO SUBTREE 
59 $2 00 8 $p 4 240$: MOVL R2,R9 ; Set new subtree | 
0270 $51 : MARK SUBTREE IN PERFECT BALANCE | 
OB AD = 9% 8 , 338 250$: CLRB BTESB_BAL(R9) ; Mark in perfect balance 
544 222 : RETURN RO FALSE TO INDICATE NEITHER SIDE IS HEAVY 
50 D4 $3) 557 80$: CLRL ~—s_ RO > Mark in balance 
0S 0275 558 90S: RSB 


i 
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¥b4-000 NETSDE 


mee 
@s 


routines 
LETE_BTE 
4 $9 i. -SBTTL NETSDELETE_BTE = Delete BTEs from the COLLATE and NAME TREEs 
4 6 ; NETSDELETE_BTE = Delete BTEs from the COLLATE and NAME TREEs 
76 64 ; This routine deletes the collate and name BIEs from the corresponding AVL 
76 65 ; trees. 
76 08 ; 
76 67 ; INPUTS: 
76 68 ; 
76 28? 3 R11 = Address of CNR 
8 oe 259 : R10 = Address of CNF to be deleted 
0276 i ; OUTPUTS: 
0276 73; 
0276 74 ; RO = True if success, else false 
0276 86575 ; 
0276 278 : R9 is destroyed. 
0276 577; 
0276 578 ;-- 
0276 579 
0276 580 NETSDELETE _BTE:: ; Delete the BTEs for collate and names 
0276 = 581 PUSHQ = R7_ ; Save registers 
0279 286 SGETFLD ndi,s,col ; Get the collating value 
7E S57 7D 0286 58 MOVQ R7,-(SP) ; Push descriptor of key value 
OOOOOO00'EF DF 0289 584 PUSHAL NETS$GL_COL_TREE ; Push address of collate tree 
QOO0029A'EF O03 FB O28F 585 CALLS #3,DELETE_BTE ; Delete the BTEs 
0296 586 908: POPQ R7 ; Restore registers 
05 0299 587 RSB ; Exit with status 
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-SBTTL DELETE_BTE = Delete element from AVL tree 


++ 
DELETE_BTE = Delete an element from an AVL tree 


2. oe 
wo 
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3 This routine is called to delete the entry for a given key from 

; an AVL tree. It returns the agprage cote tree node, then 

: rebalances the tree as required. For a full explanation of 

3 what is involved, see WIRTH, ‘Algorithm + Data Structures = Programs’. 
; Basically, we scan the tree until we find the node with the 
F giver key. We then look for the rightmost decendent of the 
: he left subtree and delete that entry, putting its associated value 
; peomaters in the original node. This avoids a lot of node shuffling. 

: Then, we go up the tree until we find a node which remains in 
; acceptable balance when the subtree gets lower. 

3 INPUTS: ) Address of root of tree 

3 ) Length of string for key value 

; P) Address of string for key value 


: OUTPUTS: | 
RO True if node in tree, else false | 
| 


SIDE EFFECTS: 


Root address of tree possibly updated. 
Node deleted from tree, if present. 


DELETE_BTE: ; Delete a binary tree element (BTE) 
.WORD “M<R1,R2,R3,R4,R5,R6,R7,RB,RI> ; Save registers 
CLRL ; Assume failure 
MOVL a4 (AP) ,R9 Get address of first BTE 
Br if none, exit with error. . 

mMOVa 8(AP) ,R7 Get value to pass to comparison routine 

R6 Indicate node not found yet 
BSBB DELETE 
MOVL R1,a4 (AP) 
MOVZBL #1,RO 
RET 


PPP OOOOOOOOOOOOOOOOVOOOOOOOOOOOOOOOO 


HDRAEAEXAAAAAAAAAAAAAAAAA AAA AAA AAPA 


Call routine which does the work 
Set new root of tree 

Return success 

Exit with status 


10$: 
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y04~000 DELETE_BTE - Delete element tree AVL tre 5-S Pa} 984 83 i5F 2] NETACP.SRCINETTREE.MAR; 1 a 
B4 630 ;+ 
BG 631; a ihe | routine to go down the tree ye hans If it finds 
Bo 6 ¢ 3 the matching node, it passes its address down. On the way up, 
B4 6 3: this routine rebalances the tree. 
B4 635 : Inputs: RS Address of node in tree to start a from 
BG 66 § ; R7,R8 Descriptor of parameter to pass to comparison routine 
8 +4 ? : R6 Address of node that matched or zero 
0284 639 : Outputs: 
02B4 640 ; R2 Change in height indicator (zero if no change, else -1) 
8 B46 641; R1 Address of new parent for tree/subtree 
B4 oc) i 
02B4 64 
02B4 644 DELETE: 
bSe¢ 645 $ 
02B4 968 ; Call the comparison routine to check for match 
oSee 64 : fe ress of node to check 
8 + 228 3 R7,R8 Descriptor of key value 
by . 
O1A3. 30 $5pe 650 8sBw COMPARE_COLLATE ; Call compare routine 
2C 1A 0287 651 BGTRU 40$ ; Br if key was greater, go to right 
03 =F 0e88 636 BLSSU 20% :; Br if key was less, go to left 
0 ee 634 : Found match, save node address 
56 59 00 §5Be 656 MOVL RO,R6 ; Else remember that this is the node 
O2BE 657 20S: 5 
psBE O28 3 See if we can traverse the left subtree 
50 69 00 O5BE 660 MOVL TESL_LEFT(R9) ,RO ; Get left subtree 
06 12 O2C1 661 BNEQ 0$ ; Br if there is one 
51 04 a9 D0 02C3 $36 MOVL BIESL_RIGHT(R9) ,R1 ; Else get right subtree 
a” OH ogee oe7 BRB 50$ ; And go to common code 
Oc 665 : Traverse left subtree, with subtree present 
59 DD $568 667 20S PUSHL R9 ; Save current BITE 
59 50 00 O2CB 668 MOVL RO,RY ; Get subtree pointer 
E46 10 Q2CE 669 BSBB DELETE ; Make recursive call (finds leaf) 
59 BEDO O2D0 670 POPL ag 3; Get current BIE back 
69 51 DO O2D3 671 MCVL R1,BTESL_LEFT(R9) ; And set new subtree ptr 
OB AI 2§ 8 0206 O76 SUBB R2,BTESB_BAL(R9) 3; Adjust balance 
5 9 8 DA 67 TSTB R ; Any change in height? 
06 12 DC 36674 BNEQ 35$ ; Br if yes - rebalance 
51 59 B? 3 43 of? aot R9,R1 ; Set new parent (leave R2 = 0) 
02E ers 
0081 31 0 : ors 35$: BRwW DEL_REBAL_L ; Else, go and rebalance 
see og0 40$: ; ‘ : 
Osee on) ; See if we can traverse right subtree 
50 04 A9 OD £3 6 g MOVL BIESL_RIGHT(R9) .RO ; Get right subtree 
. eae E9 684 BNEQ 60$ ; Br if there is one 
51 69 OD 3 o3? 508 MOVL BTESL_LEFT(R9) ,R1 ; Else get left subtree 
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Vv “00 DELETE_BTE - Delete element Troe AVL tre mses yi 3 :5F 32) NETACP.SRCINETTREE.MAR; 1 3) 
4 ong : Common processing 
56 DS OEE 6 ; TSTL R ; Did we find a matching node? 
0 12 F 690 BNEQ 55$ ; Br if so = all OK 
50 D4 F 691 CLRL RO ; Else say we failed 
04 F 692 . RET ; And exit with status 
F5 69% 55$ ; 
F5 694 : Found a match, copy leaf's data to last BITE and 
8 Fe o3? 3 delete the leaf. 
O2F5 697 3; Inputs: RS BITE address of leaf to delete 
8 Fe $38 3 R6 BTE address of node that matches 
53 OC A6 DO O2F5 700 MOVL BTESL ditt R3 ; Save pointer to alternate BTE 
3F BB O2F9 = 701 PUSHR #*M<RO,R1,R2,R3,R4,R5> : Save registers 
53. 08 AY O¢ AS OeFB 108 SUBW3 #BTESL BTEPTR,BTESW_SIZE(R9) ,R3 ; Compute size of DATA to move 
0c AB «0C AD =«653)=«—2B «0300S 70 MOVC3 R3,BTESL BTEPIR(R9) -BTESL_BTEPTR(RG) ; copy the BTE data 
3F BA ba58 pe POPR #*M<RO,RT,R2,R3,R4,R5> 3; Save registers 
0308 706 ; Now we must go to the other BTE to update it's pointer to 
O308 ye : the new BTE we just reset. 
0c Ad =65563)— iO s«C(0308 = 709 MOVL R3,BTESL_BTEPTR(RI) ; Point other's BIE at new leaf 
54 OC A6 D0O O30C 710 MOVL BIESL_BTEPTR(R6) .R4 ; Get address of other BTE 
¢? 13 0310 #711 BEQL 58$ :; Br if end of recursion 
OC AG $ DO 0312 Ne MOVL og STERL STEP TRIAL, ; Update pointer to moved BTE 
5 DS 0316 71 TSTL R ; ALL done? 
21 13 0318 714 BEQL 58$ ; Br if yes, stop recursing 
OC AS 4 Bein ak CLRL BIESL_BTEPTR(R3) ; Clear the return pointer 
baie ne : Now we will delete the other BTE. 
7E 15 A3 YE QO31D 719 56S: MOVAB BTEST_DATA+1(R3),-(SP) ; Push address of data portion of BTE 
7E 14 A3 QA Q321 720 MOVZBL BTEST_DATA(R3) ,-(SP) ; Push Length of data portion of BTE 
OOOOO000'EF DF 0325 721 PUSHAL NETSGC_NAME ; Push address of root of name tree 
07 OA AS =«6EB® «C(0328B:~CO7 ¢ L BIESB_TYPE(R3),57$ : Br if name element 
6—  OOO00000'EF ODE b36e 7 MOVAL we TSoc COL TREE, (SP) ; Else, set address of other root 
FSF CF 4603) «6 FB OCO0336) = 724 ‘578: CALLS #3,DELETE_BTE ; Delete the other BIE first 
50 59 pO 0338 725 58$: MOVL R9,R 3; Address of BIE to delete 
00000000'EF 16 O33E 726 JSB NE fSDEALLOCATE : Delete the BIE 
52 01 CE 0344 £727 MNEGL #1,R2 ; Set height change 
05 0347 £728 RSB 3; And return with New decendent in R1 
48 729 60S: : : 
iB f ? 3 Traverse right subtree 
59 DD 0348 13 PUSHL 9 ; Save current BTE 
59 50 pe 4A 7 MOVL RO,R9 ; Get subtree pointer 
FF64 0 4D 734 BSBW DELETE 3; Make recursive call (finds leaf) 
29 8EDO 5 735 POPL R9 ; Get current BITE bac 
04 Ad a. 5 7 $ MOVL R1,BTESL_RIGHT(R9) ; Else, set new subtree ptr 
AG : 3 5 7 ADDB -BTESB_BAL(R9) 3; Adjust balance 
58 738 TSTB 3 Any height change? 
9 1 2p 739 BEQL 70$ ; Br if not 
00 f 31 F 740 BR pet REBAL_R : Else, rebalance if necessary 
3 4 $e 741 70$ MOVL R9,R1 ; Set new parent (leave R2=0) 
0 re eg RSB 3; And exit 


ae 
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$6 Sk a -SBTTL DEL_REBAL_L = Rebalance after left deletion 
66 rae ; DELLREBAL_L = Rebalance after left deletion 
66 ok : Check the balance of the node. If it is out of balance, rebalance 
re £20 ; it with its right decendent 
re P36 ; Inputs: RG Address of subtree to be rebalanced 
0366 754 ; Outputs: R2 Change in height of subtree (0 or -1) 
6 oe £3 ; R1 New parent node of subtree 
56 528 : R6 destroyed 
Biss fae 
0366 760 DEL_REBAL_L: 
01 08 ” 9} B366 9) care BTESB_BAL(R9) ,#1 : Wode gone overweight to the right? 
; Br so 
52 OB AD O01 83 ba95 res SUBB3 «= #1, ,BTESB_BAL(R9) ,R2 3 ap set — change according to 
; balance state 
—- oa Bare. wee CVTBL R2,R2 : Produce longword result 
51 59 pO 0374 766 L RI ; Set new root node 
05 been ror RSB 3 And exit 
56 04 A9 DO 0378 769 108: MOVL BIESL_RIGHT(R9) ,R6 ; Get right subtree 
0B AG 3=695 «#4(037C~=—770 TSTB BTESB_BAL (R6) ; Test its balance state 
2B 3219 «O37F = 6771 BLSS DRL_L ; Subtree is left-heavy 
14 13 0381 ak BEQL DRL_B ; Subtree is balanced 
0383 773 ;; BGTR DRL_R ; Subtree is right-heavy 
gb 
0383 776 ; Rebalance rigntcheoy node with right-heavy decendent. Make decendent into 
0383 777 ; parent (single rotation) 
0383779 ORL 
04 A9 66 DO 0383 780 "MOVE BIESL_LEFT(R6) ,BTESL_RIGHT(R9) ; Make R-son's L-son into R-son 
59 DO 0387 781 MOVL  R9,BTESL_LEFT(R6) ; make node into R-son's L-son 
51 56 DO OQ38A re MOVL R 3; L-son is new parent 
0B A694 B50 78 CLRB BTESB_BAL(R6) ; Both nodes ar2 now balanced 
AQ 94 Q 3 784 CLRB BIESB_BAL(R9) E eee 
52 01 CE 039 785 MNEGL #1,R2 ; Height has decreased 
05 Baa8 786 $B 3; Done 
gr. 
$397 ? 5 ; Rebalance right-heavy node with balanced son. Single rotation as above, but 
0397 a4 ; both nodes are unbalanced and there is no overall height change. 
97 792 BRL_B: 
04 Ad $6 DO 97 79 % MOVL BIESL_LEFT(R6) ,BTESL_RIGHT(R9) ; Make R-son's L-son into R-son 
$6 9 DO 0398 794 MOVL  R9,BTESL_LEFT(R6) ; make node into R-son's L-son 
1 56 00 9E 795 MOVL R6, 3; L-son is new parent 
OB Ad «01 90 Ai 79 MOVB #1,BTESB_BAL(R9) ; Node is now right unbalanced 
OB A6 9} 8E AS 79 MNEGB #1,BTES$B_BAL(R6) ; New parent is left unbalanced 
2 D4 AQ 798 CLRL R2 : No height change 
05 AB 799 R ; Done 
AC 00 
AC 01 ;+ 
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- Subroutines for processing BINARY TRE Tersee= 13 4 9}: 8:51 YAX/VMS Macro V04-00 
DEL_REBAL_L = Rebalance after left delet 5-SEP-1984 02:21:41 (CNETACP.SRCINETTREE.MAR; 1 
AC ¢ ; Rebalance rjghtoheavy node with left heavy son. Do double rotation, in 
ae Z ; which R=son's L=son becomes new parent. 
AC 805 BRL_L 
D AC $ MOVL BTESL LEFT ING) .RO 3 get ‘middle son‘ 
D AF MOVL BIESL_LEFT(RO) erest RIGHT(R9) ; make its L-son be new R-so 
D B : MOVL  BTESL-RIGHT(ROS ,BTESC_LEFT(RO6) : give R-son to existing son 
D B MOVL RO, BTESL_LEFT (RO) ; Make old parent new L-son 
4 BA 10 MOVL R6 ey wo ; And old R=son be new R-son 
4 B 11 CLRB BTE$B_BAC(R9) ; Assume new parent is not R-heavy 
95 C \¢ TSTB BTESB_BAL (RO) ; Was it R-heavy? 
{3 C4 1 BLEQ 10$ ; Br if not - all OK 
S C8 14 DECB BTESB_BAL(R9) : Else, old parent is L-heavy 
94 03C 15 10$: CLRB BTESB_BAL(R6) ; Assume new parent is not L-heavy 
95 O3CC 16 TSTB BTESB_BAL (RO) 3; Was it? 
18 8 CF 17 BGEQ 20$ ; Br if not - all OK 
96 0301 818 INCB BTESB_BAL (R6) ; Else, old R=-son is R-heavy 
94 0304 819 20S: CLRB BTE$B_BAL (RO) ; New parent is balanced 
dO Sey 550 MOVL RO,R1 ; Set new parent 
CE QO3DA 821 MNEGL #1,R2 ; Indicate height change 
05 0300 822 $B 3 ALL done 
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+ HAs 33 - Subroutines for processing BINARY TRE 1 mi teh 9 Ot: 8:51 VAX/VMS Macro V04-00 Page 19 | 
Vv04=- DEL_REBAL_R = Rebalance after right dele 5=-SEP=1984 02:21:41 (CNETACP.SRCIJNETTREE.MAR; 1 (14) | 
43 : : -SBTTL DEL_REBAL_R = Rebalance after right deletion 
DE : ; DEL_REBAL_R = Rebalance after right deletion 
DE 3 : Check the balance of the node. If it is out of balance, rebalance | 
BS 5: it with its left son | 
DE 1: Inputs: RO Node to be rebalanced | 
DE ‘ : Outputs: R2 Change in height of subtree (0 or -1) 
43 ¢ 3 R1 New parent node of subtree 
DE $ : R6 destroyed 
DE OSB 
O3DE 9 DEL_REBAL_R: 
FF 8F 0B ae 44 a3 re Sa |) ual asi ll ; Bete gene overweight to the left? 
; Br so 
52 FF BF OB AS 83 O3ES Hr) SUBB3 BTESB_BAL(R9) ,#-1,R2 3 he set potent change according to | 
3; batance state 
52 52 98 O3E6 44 CVTBL R2,R2 3 Produce longword result 
51 59 f Beet 45 MOVL R9,R1 ; Set new subtree root 
0 bara e48 RSB ; And return to caller 
56 69 »d0 O32 848 108: MOVL BIESL_LEFT(R9) ,R6 ; Get left subtree 
0B A6 =95 «(03F $02 TSTB BTESB_BAL (R6) ; And look at its balance state 
20 14 O3F8 50 BGTR DLR_R ; Subtree is right-heavy 
15 13 O3FA 851 BEQL DLR_B ; Subtree is balanced 
O3FC b2¢ 38 BLSS DLR_L ; Subtree is left-heavy 
Be 
O3FC 86855; Rebalance left-heavy node with left-heavy subtree. Make decendent into 
bare $28 3; parent (single rotation) 
Ose | 839 BURL 
69 04 A6 00 Sere B39 ae MOVL BIESL_RIGHT(R6) ,BTESL_LEFT(R9) ; Make L=-son's R-son into L-son 
04 a6 «659 «D0 0400 360 MOVL RO, BTESL_RIGHT(R6) ; Make node into L-son's R-son 
51 56 D0 0404 61 MOVL 6,R1 3 L-son is new parent 
A6 9% 0407 86¢ CLRB = BTE$B_BAL(R6) : Both nodes are now balanced 
0B AD 94 Q40A 86 CLRB BTESB_BAL(R9) 3 nce 
52 01 CE 040d 64 MNEGL 1,R2 ; Height has decreased 
05 0410 65 SB ; Done 
ga | 
11 68 ; Rebalance left-heavy node with balanced subtree. Single rotation as above, 
th $ ; but both nodes are unbalanced and there is no overall height change. 
411 871 BLR_B: | 
04 A6 «DO (0411 es ‘y MOVL BTESL_RIGHT(R6) ,BTESL_LEFT(R9) ; Make L-son's R-son into L-son 
04 A6 39 9 415 87 MOVL  R9,BIESL_RIGHT(R6) ; make node into L-son's R-son 
51 es 2 419 74 MOVL R6,R1 3; L-son is new parent 
0B Ad «6(01—Ctsé#BE if 75 MNEGB #1,BTESB_BAL(R9) ; Node is now left unbalanced 
OB A6 2 90 04 7 MOVB #1 ,BTESB_BAL (R6) ; New parent is right unbalanced 
2 D4 0424 7 CLRL R2 : No height change 
05 04 § 7 RSB 
4 7 
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7:28:51 paaiyas Macro V04-00 Page ¢0 
(14) 


2:21:41 YNETACP. SRC IJNETTREE.MAR; 1 
Do double rotation, in 


; Ge 

(RO) ; aoe its R-son be new L-son 
(R6) ; Give L=-son to existing son 
Make 3.9! parent new pond 

And old L=-son be new L-so 

Assume new parent was not esheovy 
Was it L-heav vyi 

Br if not - all OK 

Else, old parent is ony 

— new parent was not R-heavy 
Was i Birger | 

Br if not - all 0 

Else, old L-son * L-heavy 

New parent ? A cia ced 

Set new pare 

Indicate height change 

ALL done 
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Subroutines for processing BINARY TRE 16-SEP-1984 01:28:51 VAX/VMS Macro Vv04-00 Page 21 
PARE_COLLATE - cBMPARE Bie DATA ENTRI ets 58:2) NETACP.SRCINETTREE.MAR; 1 0 (3) 
45A 3 -SBTTL COMPARE_COLLATE = COMPARE BTE DATA ENTRIES BY COLLATING VALUE 
r . ¢ “ ~SBTTL COMPARE_COLLATE1 = COMPARE BITE DATA ENTRIES BY COLLATING VALUE 
45A ; 
r rn 5 ; COMPARE THE VALUES OF THE BTE AGAINST THE INPUT KEY 
teh 5 3 INPUTS: 
a3h 13 R9 = ADDRESS OF CURRENT NODE, COMPARE_COLLATE 
45A § : a = ADDRESS OF CURRENT NODE, COMPARE_COLLATE1 
oan i ; R7,R8B = DESCRIPTOR OF STRING OMPARE 
45A 5 ; OUTPUTS: 
45A § ; 
45A : PSL CONDITIONS SET. 
45A 8 i-- 
45A 
beea OQ COMPARE_COLLATE: 
15 Ao «868 91 Q45A 1 CMPB (R8) ,BTEST_DATA+1(R9) ; Check 1st char 
OF 12 3 ¢ BNEQ 90$ ; Br if thats enough 
E 6B 046 PUSHR #*M<R1,R2,R3,R4,R5> ; Save registers 
14 A9 9A (0462 4 MOVZBL BIEST_BATACRS),A1 ; Get length of current name 
68 57 2D 0466 5 CMPC (RB) ,#0,- ; Compare strings 
15 a9 31 046A 6 R1,BTEST DATA+1(R9) 
E BA 046d POPR #*M<R1,R2,R3,R4,R5> ; Restore registers 
05 046F 8 90S: RSB 
8328 929 
47 930 
0470 931 COMPARE_COLLATE1: 
15 A2 68 0470 336 CMPB (R8) ,BTEST_DATA+1(R2) ; Check Ist char 
OF 0474 93 NEQ 90 ; Br if thats enough 
3F 9443 934 PUSHR #*M<RO,R1,R2,R3,R4,R5> ; Save registers 
14 A2 478 935 MOVZBL BTEST DATA(R2),R1 : Get Length of current name 
68 «(57 047C 936 CMPCS5 = R7,(RB),#0,- ; Compare strings 
15 A251 0480 937 R1,BTEST DATA+1 (R2) 
3F 048 938 POPR #*M<RO,RT,R2,R3,R4,R5> ; Restore registers 
05 0485 939 90S: RSB 
0486 940 
0486 941 
0486 942 -END 
| 
| 
| 
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NETTREE 
Symbol table =1984 02: 


Ma v04-00 Pp | 
LSRCINETTREE MAR: 1 a (8). 
ADD_NEW_BTE 000176 R 03 
= 
0 
0 


BiESe BAL 4 
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5; 
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0000007. RG 
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Phase 


Page faults 


Initialization 26 80:00 :00.08 00:00:00.6 
pounene processing 14 00:00:01.2 00:00:06.4 

294 00:00:08.47 00:00:16.08 
Syabol table sort 0 00:00:00.80 BF 8008 “88 

170 ths $8 46 00:00:03.8 
cess f table output 7 00:00: +06 00:00:00.09 
Psect synopsis output 2 00:00:00.0 00:00:00.03 
Cross-reference output 0 Sha BS 00:00:00.00 
Assembler run totals 640 00:00:13.1 00:00:28.76 


The working set Limit was 1950 pages. 

44893 bytes (88 pages) of virtual memory were used to buffer 

There were 40 pages of symbol table space allocated to hold 631 non-local and é9 local symbols. 
2 source Lines were read in Pass 1, producing 19 object records in Pass 2. 

18 pages of virtual memory were used to define 17 macros. 


he intermediate code. 
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Macro Library name 


: [SHRLIB pokes MLB; 1 
3 55$DUA28: 
$25S$DUA age: 
SOUA SYS.OBJJL1B.MLB; 1 


SHRLIBIJEVCDEF .MLB; 1 
NETACP.OBJ NETDRV. MLB; 1 
$255$DUA28: SYS IBISTARLET. MLB; 2 
verace (all Libraries) 1 


0 
NETACP. ; w Ys po 8 
4 
3 
697 GETS were required to define 13 macros. 
There were no errors, warnings or information messages. 
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NETTREE - Subroutines for processing BINARY TRE ign see 138% 4:68:31 AX/VMS Macro V04-00 Page 
Psect synopsis -SEP=1984 02:21:41 (CNETACP.SRCINETTREE.MAR; 1 

¢eaen ewan eosce ce scene} 

! Psect synopsis ! 

$ewecanan ee ecoeaa 
PSECT name Allocation PSECT No. Attributes 
. ° 0000 ! ( te 00 ¢ 0.) NOPIC USR CON ABS LCL aoe NOEXE NORD NOWRT NOVEC BYTE 
SABSS 000 3 ( 39.) 01 ¢ #1.) \NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
NET = {mune 00000004 ( 4.) 86 ( §° NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
NET" CODE1 00000486 ( 1158.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD WNOWRT NOVEC BYTE 
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